<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>sampleFile - OpenGrok cross reference for /sampleFile</title></head><body>
<script type="text/javascript">/* <![CDATA[ */
function get_sym_list(){return [];} /* ]]> */</script><a class="l" name="1" href="#1">1</a><span class="c">* Copyright (c) 2013 Samuel Halliday</span>
<a class="l" name="2" href="#2">2</a><span class="c">* Copyright (c) 1992-2011 The University of Tennessee and The University</span>
<a class="l" name="3" href="#3">3</a><span class="c">*                         of Tennessee Research Foundation.  All rights</span>
<a class="l" name="4" href="#4">4</a><span class="c">*                         reserved.</span>
<a class="l" name="5" href="#5">5</a><span class="c">* Copyright (c) 2000-2011 The University of California Berkeley. All</span>
<a class="l" name="6" href="#6">6</a><span class="c">*                         rights reserved.</span>
<a class="l" name="7" href="#7">7</a><span class="c">* Copyright (c) 2006-2011 The University of Colorado Denver.  All rights</span>
<a class="l" name="8" href="#8">8</a><span class="c">*                         reserved.</span>
<a class="l" name="9" href="#9">9</a><span class="c">*</span>
<a class="hl" name="10" href="#10">10</a><span class="c">* $COPYRIGHT$</span>
<a class="l" name="11" href="#11">11</a><span class="c">*</span>
<a class="l" name="12" href="#12">12</a><span class="c">* Additional copyrights may follow</span>
<a class="l" name="13" href="#13">13</a><span class="c">*</span>
<a class="l" name="14" href="#14">14</a><span class="c">* $HEADER$</span>
<a class="l" name="15" href="#15">15</a><span class="c">*</span>
<a class="l" name="16" href="#16">16</a><span class="c">* Redistribution and use in source and binary forms, with or without</span>
<a class="l" name="17" href="#17">17</a><span class="c">* modification, are permitted provided that the following conditions are</span>
<a class="l" name="18" href="#18">18</a><span class="c">* met:</span>
<a class="l" name="19" href="#19">19</a><span class="c">*</span>
<a class="hl" name="20" href="#20">20</a><span class="c">* - Redistributions of source code must retain the above copyright</span>
<a class="l" name="21" href="#21">21</a><span class="c">*   notice, this list of conditions and the following disclaimer.</span>
<a class="l" name="22" href="#22">22</a><span class="c">*</span>
<a class="l" name="23" href="#23">23</a><span class="c">* - Redistributions in binary form must reproduce the above copyright</span>
<a class="l" name="24" href="#24">24</a><span class="c">*   notice, this list of conditions and the following disclaimer listed</span>
<a class="l" name="25" href="#25">25</a><span class="c">*   in this license in the documentation and/or other materials</span>
<a class="l" name="26" href="#26">26</a><span class="c">*   provided with the distribution.</span>
<a class="l" name="27" href="#27">27</a><span class="c">*</span>
<a class="l" name="28" href="#28">28</a><span class="c">* - Neither the name of the copyright holders nor the names of its</span>
<a class="l" name="29" href="#29">29</a><span class="c">*   contributors may be used to endorse or promote products derived from</span>
<a class="hl" name="30" href="#30">30</a><span class="c">*   this software without specific prior written permission.</span>
<a class="l" name="31" href="#31">31</a><span class="c">*</span>
<a class="l" name="32" href="#32">32</a><span class="c">* The copyright holders provide no reassurances that the source code</span>
<a class="l" name="33" href="#33">33</a><span class="c">* provided does not infringe any patent, copyright, or any other</span>
<a class="l" name="34" href="#34">34</a><span class="c">* intellectual property rights of third parties.  The copyright holders</span>
<a class="l" name="35" href="#35">35</a><span class="c">* disclaim any liability to any recipient for claims brought against</span>
<a class="l" name="36" href="#36">36</a><span class="c">* recipient by any third party for infringement of that parties</span>
<a class="l" name="37" href="#37">37</a><span class="c">* intellectual property rights.</span>
<a class="l" name="38" href="#38">38</a><span class="c">*</span>
<a class="l" name="39" href="#39">39</a><span class="c">* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS</span>
<a class="hl" name="40" href="#40">40</a><span class="c">* &quot;AS IS&quot; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT</span>
<a class="l" name="41" href="#41">41</a><span class="c">* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR</span>
<a class="l" name="42" href="#42">42</a><span class="c">* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT</span>
<a class="l" name="43" href="#43">43</a><span class="c">* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,</span>
<a class="l" name="44" href="#44">44</a><span class="c">* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT</span>
<a class="l" name="45" href="#45">45</a><span class="c">* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,</span>
<a class="l" name="46" href="#46">46</a><span class="c">* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY</span>
<a class="l" name="47" href="#47">47</a><span class="c">* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT</span>
<a class="l" name="48" href="#48">48</a><span class="c">* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE</span>
<a class="l" name="49" href="#49">49</a><span class="c">* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.</span>
<a class="hl" name="50" href="#50">50</a>
<a class="l" name="51" href="#51">51</a><span class="c">*&gt; \brief &lt;b&gt; DGESV computes the solution to system of linear equations A * X = B for GE matrices&lt;/b&gt;</span>
<a class="l" name="52" href="#52">52</a><span class="c">*</span>
<a class="l" name="53" href="#53">53</a><span class="c">*  =========== DOCUMENTATION ===========</span>
<a class="l" name="54" href="#54">54</a><span class="c">*</span>
<a class="l" name="55" href="#55">55</a><span class="c">* Online html documentation available at</span>
<a class="l" name="56" href="#56">56</a><span class="c">*            http://www.netlib.org/lapack/explore-html/</span>
<a class="l" name="57" href="#57">57</a><span class="c">*</span>
<a class="l" name="58" href="#58">58</a><span class="c">*&gt; \htmlonly</span>
<a class="l" name="59" href="#59">59</a><span class="c">*&gt; Download DGESV + dependencies</span>
<a class="hl" name="60" href="#60">60</a><span class="c">*&gt; &lt;a href=&quot;http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&amp;filename=/lapack/lapack_routine/dgesv.f&quot;&gt;</span>
<a class="l" name="61" href="#61">61</a><span class="c">*&gt; [TGZ]&lt;/a&gt;</span>
<a class="l" name="62" href="#62">62</a><span class="c">*&gt; &lt;a href=&quot;http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&amp;filename=/lapack/lapack_routine/dgesv.f&quot;&gt;</span>
<a class="l" name="63" href="#63">63</a><span class="c">*&gt; [ZIP]&lt;/a&gt;</span>
<a class="l" name="64" href="#64">64</a><span class="c">*&gt; &lt;a href=&quot;http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&amp;filename=/lapack/lapack_routine/dgesv.f&quot;&gt;</span>
<a class="l" name="65" href="#65">65</a><span class="c">*&gt; [TXT]&lt;/a&gt;</span>
<a class="l" name="66" href="#66">66</a><span class="c">*&gt; \endhtmlonly</span>
<a class="l" name="67" href="#67">67</a><span class="c">*</span>
<a class="l" name="68" href="#68">68</a><span class="c">*  Definition:</span>
<a class="l" name="69" href="#69">69</a><span class="c">*  ===========</span>
<a class="hl" name="70" href="#70">70</a><span class="c">*</span>
<a class="l" name="71" href="#71">71</a><span class="c">*       SUBROUTINE DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO )</span>
<a class="l" name="72" href="#72">72</a><span class="c">*</span>
<a class="l" name="73" href="#73">73</a><span class="c">*       .. Scalar Arguments ..</span>
<a class="l" name="74" href="#74">74</a><span class="c">*       INTEGER            INFO, LDA, LDB, N, NRHS</span>
<a class="l" name="75" href="#75">75</a><span class="c">*       ..</span>
<a class="l" name="76" href="#76">76</a><span class="c">*       .. Array Arguments ..</span>
<a class="l" name="77" href="#77">77</a><span class="c">*       INTEGER            IPIV( * )</span>
<a class="l" name="78" href="#78">78</a><span class="c">*       DOUBLE PRECISION   A( LDA, * ), B( LDB, * )</span>
<a class="l" name="79" href="#79">79</a><span class="c">*       ..</span>
<a class="hl" name="80" href="#80">80</a><span class="c">*</span>
<a class="l" name="81" href="#81">81</a><span class="c">*</span>
<a class="l" name="82" href="#82">82</a><span class="c">*&gt; \par Purpose:</span>
<a class="l" name="83" href="#83">83</a><span class="c">*  =============</span>
<a class="l" name="84" href="#84">84</a><span class="c">*&gt;</span>
<a class="l" name="85" href="#85">85</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="86" href="#86">86</a><span class="c">*&gt;</span>
<a class="l" name="87" href="#87">87</a><span class="c">*&gt; DGESV computes the solution to a real system of linear equations</span>
<a class="l" name="88" href="#88">88</a><span class="c">*&gt;    A * X = B,</span>
<a class="l" name="89" href="#89">89</a><span class="c">*&gt; where A is an N-by-N matrix and X and B are N-by-NRHS matrices.</span>
<a class="hl" name="90" href="#90">90</a><span class="c">*&gt;</span>
<a class="l" name="91" href="#91">91</a><span class="c">*&gt; The LU decomposition with partial pivoting and row interchanges is</span>
<a class="l" name="92" href="#92">92</a><span class="c">*&gt; used to factor A as</span>
<a class="l" name="93" href="#93">93</a><span class="c">*&gt;    A = P * L * U,</span>
<a class="l" name="94" href="#94">94</a><span class="c">*&gt; where P is a permutation matrix, L is unit lower triangular, and U is</span>
<a class="l" name="95" href="#95">95</a><span class="c">*&gt; upper triangular.  The factored form of A is then used to solve the</span>
<a class="l" name="96" href="#96">96</a><span class="c">*&gt; system of equations A * X = B.</span>
<a class="l" name="97" href="#97">97</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="98" href="#98">98</a><span class="c">*</span>
<a class="l" name="99" href="#99">99</a><span class="c">*  Arguments:</span>
<a class="hl" name="100" href="#100">100</a><span class="c">*  ==========</span>
<a class="l" name="101" href="#101">101</a><span class="c">*</span>
<a class="l" name="102" href="#102">102</a><span class="c">*&gt; \param[in] N</span>
<a class="l" name="103" href="#103">103</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="104" href="#104">104</a><span class="c">*&gt;          N is INTEGER</span>
<a class="l" name="105" href="#105">105</a><span class="c">*&gt;          The number of linear equations, i.e., the order of the</span>
<a class="l" name="106" href="#106">106</a><span class="c">*&gt;          matrix A.  N &gt;= 0.</span>
<a class="l" name="107" href="#107">107</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="108" href="#108">108</a><span class="c">*&gt;</span>
<a class="l" name="109" href="#109">109</a><span class="c">*&gt; \param[in] NRHS</span>
<a class="hl" name="110" href="#110">110</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="111" href="#111">111</a><span class="c">*&gt;          NRHS is INTEGER</span>
<a class="l" name="112" href="#112">112</a><span class="c">*&gt;          The number of right hand sides, i.e., the number of columns</span>
<a class="l" name="113" href="#113">113</a><span class="c">*&gt;          of the matrix B.  NRHS &gt;= 0.</span>
<a class="l" name="114" href="#114">114</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="115" href="#115">115</a><span class="c">*&gt;</span>
<a class="l" name="116" href="#116">116</a><span class="c">*&gt; \param[in,out] A</span>
<a class="l" name="117" href="#117">117</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="118" href="#118">118</a><span class="c">*&gt;          A is DOUBLE PRECISION array, dimension (LDA,N)</span>
<a class="l" name="119" href="#119">119</a><span class="c">*&gt;          On entry, the N-by-N coefficient matrix A.</span>
<a class="hl" name="120" href="#120">120</a><span class="c">*&gt;          On exit, the factors L and U from the factorization</span>
<a class="l" name="121" href="#121">121</a><span class="c">*&gt;          A = P*L*U; the unit diagonal elements of L are not stored.</span>
<a class="l" name="122" href="#122">122</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="123" href="#123">123</a><span class="c">*&gt;</span>
<a class="l" name="124" href="#124">124</a><span class="c">*&gt; \param[in] LDA</span>
<a class="l" name="125" href="#125">125</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="126" href="#126">126</a><span class="c">*&gt;          LDA is INTEGER</span>
<a class="l" name="127" href="#127">127</a><span class="c">*&gt;          The leading dimension of the array A.  LDA &gt;= max(1,N).</span>
<a class="l" name="128" href="#128">128</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="129" href="#129">129</a><span class="c">*&gt;</span>
<a class="hl" name="130" href="#130">130</a><span class="c">*&gt; \param[out] IPIV</span>
<a class="l" name="131" href="#131">131</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="132" href="#132">132</a><span class="c">*&gt;          IPIV is INTEGER array, dimension (N)</span>
<a class="l" name="133" href="#133">133</a><span class="c">*&gt;          The pivot indices that define the permutation matrix P;</span>
<a class="l" name="134" href="#134">134</a><span class="c">*&gt;          row i of the matrix was interchanged with row IPIV(i).</span>
<a class="l" name="135" href="#135">135</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="136" href="#136">136</a><span class="c">*&gt;</span>
<a class="l" name="137" href="#137">137</a><span class="c">*&gt; \param[in,out] B</span>
<a class="l" name="138" href="#138">138</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="139" href="#139">139</a><span class="c">*&gt;          B is DOUBLE PRECISION array, dimension (LDB,NRHS)</span>
<a class="hl" name="140" href="#140">140</a><span class="c">*&gt;          On entry, the N-by-NRHS matrix of right hand side matrix B.</span>
<a class="l" name="141" href="#141">141</a><span class="c">*&gt;          On exit, if INFO = 0, the N-by-NRHS solution matrix X.</span>
<a class="l" name="142" href="#142">142</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="143" href="#143">143</a><span class="c">*&gt;</span>
<a class="l" name="144" href="#144">144</a><span class="c">*&gt; \param[in] LDB</span>
<a class="l" name="145" href="#145">145</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="146" href="#146">146</a><span class="c">*&gt;          LDB is INTEGER</span>
<a class="l" name="147" href="#147">147</a><span class="c">*&gt;          The leading dimension of the array B.  LDB &gt;= max(1,N).</span>
<a class="l" name="148" href="#148">148</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="149" href="#149">149</a><span class="c">*&gt;</span>
<a class="hl" name="150" href="#150">150</a><span class="c">*&gt; \param[out] INFO</span>
<a class="l" name="151" href="#151">151</a><span class="c">*&gt; \verbatim</span>
<a class="l" name="152" href="#152">152</a><span class="c">*&gt;          INFO is INTEGER</span>
<a class="l" name="153" href="#153">153</a><span class="c">*&gt;          = 0:  successful exit</span>
<a class="l" name="154" href="#154">154</a><span class="c">*&gt;          &lt; 0:  if INFO = -i, the i-th argument had an illegal value</span>
<a class="l" name="155" href="#155">155</a><span class="c">*&gt;          &gt; 0:  if INFO = i, U(i,i) is exactly zero.  The factorization</span>
<a class="l" name="156" href="#156">156</a><span class="c">*&gt;                has been completed, but the factor U is exactly</span>
<a class="l" name="157" href="#157">157</a><span class="c">*&gt;                singular, so the solution could not be computed.</span>
<a class="l" name="158" href="#158">158</a><span class="c">*&gt; \endverbatim</span>
<a class="l" name="159" href="#159">159</a><span class="c">*</span>
<a class="hl" name="160" href="#160">160</a><span class="c">*  Authors:</span>
<a class="l" name="161" href="#161">161</a><span class="c">*  ========</span>
<a class="l" name="162" href="#162">162</a><span class="c">*</span>
<a class="l" name="163" href="#163">163</a><span class="c">*&gt; \author Univ. of Tennessee</span>
<a class="l" name="164" href="#164">164</a><span class="c">*&gt; \author Univ. of California Berkeley</span>
<a class="l" name="165" href="#165">165</a><span class="c">*&gt; \author Univ. of Colorado Denver</span>
<a class="l" name="166" href="#166">166</a><span class="c">*&gt; \author NAG Ltd.</span>
<a class="l" name="167" href="#167">167</a><span class="c">*</span>
<a class="l" name="168" href="#168">168</a><span class="c">*&gt; \date November 2011</span>
<a class="l" name="169" href="#169">169</a><span class="c">*</span>
<a class="hl" name="170" href="#170">170</a><span class="c">*&gt; \ingroup doubleGEsolve</span>
<a class="l" name="171" href="#171">171</a><span class="c">*</span>
<a class="l" name="172" href="#172">172</a><span class="c">*  =====================================================================</span>
<a class="l" name="173" href="#173">173</a>      <b>SUBROUTINE</b> <a class="d intelliWindow-symbol" href="#DGESV" data-definition-place="defined-in-file">DGESV</a>( <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a>, <a class="d intelliWindow-symbol" href="#NRHS" data-definition-place="defined-in-file">NRHS</a>, <a class="d intelliWindow-symbol" href="#A" data-definition-place="defined-in-file">A</a>, <a class="d intelliWindow-symbol" href="#LDA" data-definition-place="defined-in-file">LDA</a>, <a class="d intelliWindow-symbol" href="#IPIV" data-definition-place="defined-in-file">IPIV</a>, <a class="d intelliWindow-symbol" href="#B" data-definition-place="defined-in-file">B</a>, <a class="d intelliWindow-symbol" href="#LDB" data-definition-place="defined-in-file">LDB</a>, <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> )
<a class="l" name="174" href="#174">174</a><span class="c">*</span>
<a class="l" name="175" href="#175">175</a><span class="c">*  -- LAPACK driver routine (version 3.4.0) --</span>
<a class="l" name="176" href="#176">176</a><span class="c">*  -- LAPACK is a software package provided by Univ. of Tennessee,    --</span>
<a class="l" name="177" href="#177">177</a><span class="c">*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--</span>
<a class="l" name="178" href="#178">178</a><span class="c">*     November 2011</span>
<a class="l" name="179" href="#179">179</a><span class="c">*</span>
<a class="hl" name="180" href="#180">180</a><span class="c">*     .. Scalar Arguments ..</span>
<a class="l" name="181" href="#181">181</a>      <b>INTEGER</b>            <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a>, <a class="d intelliWindow-symbol" href="#LDA" data-definition-place="defined-in-file">LDA</a>, <a class="d intelliWindow-symbol" href="#LDB" data-definition-place="defined-in-file">LDB</a>, <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a>, <a class="d intelliWindow-symbol" href="#NRHS" data-definition-place="defined-in-file">NRHS</a>
<a class="l" name="182" href="#182">182</a><span class="c">*     ..</span>
<a class="l" name="183" href="#183">183</a><span class="c">*     .. Array Arguments ..</span>
<a class="l" name="184" href="#184">184</a>      <b>INTEGER</b>            <a class="d intelliWindow-symbol" href="#IPIV" data-definition-place="defined-in-file">IPIV</a>( * )
<a class="l" name="185" href="#185">185</a>      <b>DOUBLE</b> <b>PRECISION</b>   <a class="d intelliWindow-symbol" href="#A" data-definition-place="defined-in-file">A</a>( <a class="d intelliWindow-symbol" href="#LDA" data-definition-place="defined-in-file">LDA</a>, * ), <a class="d intelliWindow-symbol" href="#B" data-definition-place="defined-in-file">B</a>( <a class="d intelliWindow-symbol" href="#LDB" data-definition-place="defined-in-file">LDB</a>, * )
<a class="l" name="186" href="#186">186</a><span class="c">*     ..</span>
<a class="l" name="187" href="#187">187</a><span class="c">*</span>
<a class="l" name="188" href="#188">188</a><span class="c">*  =====================================================================</span>
<a class="l" name="189" href="#189">189</a><span class="c">*</span>
<a class="hl" name="190" href="#190">190</a><span class="c">*     .. External Subroutines ..</span>
<a class="l" name="191" href="#191">191</a>      <b>EXTERNAL</b>           <a href="/source/s?defs=DGETRF" class="intelliWindow-symbol" data-definition-place="undefined-in-file">DGETRF</a>, <a href="/source/s?defs=DGETRS" class="intelliWindow-symbol" data-definition-place="undefined-in-file">DGETRS</a>, <a href="/source/s?defs=XERBLA" class="intelliWindow-symbol" data-definition-place="undefined-in-file">XERBLA</a>
<a class="l" name="192" href="#192">192</a><span class="c">*     ..</span>
<a class="l" name="193" href="#193">193</a><span class="c">*     .. Intrinsic Functions ..</span>
<a class="l" name="194" href="#194">194</a>      <a href="/source/s?defs=INTRINSIC" class="intelliWindow-symbol" data-definition-place="undefined-in-file">INTRINSIC</a>          <b>MAX</b>
<a class="l" name="195" href="#195">195</a><span class="c">*     ..</span>
<a class="l" name="196" href="#196">196</a><span class="c">*     .. Executable Statements ..</span>
<a class="l" name="197" href="#197">197</a><span class="c">*</span>
<a class="l" name="198" href="#198">198</a><span class="c">*     Test the input parameters.</span>
<a class="l" name="199" href="#199">199</a><span class="c">*</span>
<a class="hl" name="200" href="#200">200</a>      <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> = <span class="n">0</span> + <span class="n">0xFFFF</span> - <span class="n">0XFF</span> - <span class="n">0xFF00</span>
<a class="l" name="201" href="#201">201</a>      <b>IF</b>( <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a>.<b>LT</b>.<span class="n">0</span> ) <b>THEN</b>
<a class="l" name="202" href="#202">202</a>         <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> = -<span class="n">1</span>
<a class="l" name="203" href="#203">203</a>      <b>ELSE</b> <b>IF</b>( <a class="d intelliWindow-symbol" href="#NRHS" data-definition-place="defined-in-file">NRHS</a>.<b>LT</b>.<span class="n">0</span> ) <b>THEN</b>
<a class="l" name="204" href="#204">204</a>         <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> = -<span class="n">2</span>
<a class="l" name="205" href="#205">205</a>      <b>ELSE</b> <b>IF</b>( <a class="d intelliWindow-symbol" href="#LDA" data-definition-place="defined-in-file">LDA</a>.<b>LT</b>.<b>MAX</b>( <span class="n">1</span>, <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a> ) ) <b>THEN</b>
<a class="l" name="206" href="#206">206</a>         <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> = -<span class="n">4</span>
<a class="l" name="207" href="#207">207</a>      <b>ELSE</b> <b>IF</b>( <a class="d intelliWindow-symbol" href="#LDB" data-definition-place="defined-in-file">LDB</a>.<b>LT</b>.<b>MAX</b>( <span class="n">1</span>, <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a> ) ) <b>THEN</b>
<a class="l" name="208" href="#208">208</a>         <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> = -<span class="n">7</span>
<a class="l" name="209" href="#209">209</a>      <b>END</b> <b>IF</b>
<a class="hl" name="210" href="#210">210</a>      <b>IF</b>( <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a>.<b>NE</b>.<span class="n">0</span> ) <b>THEN</b>
<a class="l" name="211" href="#211">211</a>         <b>CALL</b> <a href="/source/s?defs=XERBLA" class="intelliWindow-symbol" data-definition-place="undefined-in-file">XERBLA</a>( <span class="s">&apos;DGESV &apos;</span>, -<a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> )
<a class="l" name="212" href="#212">212</a>         <b>RETURN</b>
<a class="l" name="213" href="#213">213</a>      <b>END</b> <b>IF</b>
<a class="l" name="214" href="#214">214</a><span class="c">*</span>
<a class="l" name="215" href="#215">215</a><span class="c">*     Compute the LU factorization of A.</span>
<a class="l" name="216" href="#216">216</a><span class="c">*</span>
<a class="l" name="217" href="#217">217</a>      <b>CALL</b> <a href="/source/s?defs=DGETRF" class="intelliWindow-symbol" data-definition-place="undefined-in-file">DGETRF</a>( <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a>, <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a>, <a class="d intelliWindow-symbol" href="#A" data-definition-place="defined-in-file">A</a>, <a class="d intelliWindow-symbol" href="#LDA" data-definition-place="defined-in-file">LDA</a>, <a class="d intelliWindow-symbol" href="#IPIV" data-definition-place="defined-in-file">IPIV</a>, <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> )
<a class="l" name="218" href="#218">218</a>      <b>IF</b>( <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a>.<b>EQ</b>.<span class="n">0</span> ) <b>THEN</b>
<a class="l" name="219" href="#219">219</a><span class="c">*</span>
<a class="hl" name="220" href="#220">220</a><span class="c">*        Solve the system A*X = B, overwriting B with X.</span>
<a class="l" name="221" href="#221">221</a><span class="c">*</span>
<a class="l" name="222" href="#222">222</a>         <b>CALL</b> <a href="/source/s?defs=DGETRS" class="intelliWindow-symbol" data-definition-place="undefined-in-file">DGETRS</a>( <span class="s">&apos;No transpose&apos;</span>, <a class="d intelliWindow-symbol" href="#N" data-definition-place="defined-in-file">N</a>, <a class="d intelliWindow-symbol" href="#NRHS" data-definition-place="defined-in-file">NRHS</a>, <a class="d intelliWindow-symbol" href="#A" data-definition-place="defined-in-file">A</a>, <a class="d intelliWindow-symbol" href="#LDA" data-definition-place="defined-in-file">LDA</a>, <a class="d intelliWindow-symbol" href="#IPIV" data-definition-place="defined-in-file">IPIV</a>, <a class="d intelliWindow-symbol" href="#B" data-definition-place="defined-in-file">B</a>, <a class="d intelliWindow-symbol" href="#LDB" data-definition-place="defined-in-file">LDB</a>,
<a class="l" name="223" href="#223">223</a>     $                <a class="d intelliWindow-symbol" href="#INFO" data-definition-place="defined-in-file">INFO</a> )
<a class="l" name="224" href="#224">224</a>      <b>END</b> <b>IF</b>
<a class="l" name="225" href="#225">225</a>      <b>RETURN</b>
<a class="l" name="226" href="#226">226</a><span class="c">*</span>
<a class="l" name="227" href="#227">227</a><span class="c">*     End of DGESV</span>
<a class="l" name="228" href="#228">228</a><span class="c">*</span>
<a class="l" name="229" href="#229">229</a>      <b>END</b>
<a class="hl" name="230" href="#230">230</a>
<a class="l" name="231" href="#231">231</a><span class="c">*  A Fortran 77 subroutine that ends in $</span>
<a class="l" name="232" href="#232">232</a><span class="c">*  =====================================================================</span>
<a class="l" name="233" href="#233">233</a>      <b>SUBROUTINE</b> <a class="d intelliWindow-symbol" href="#SUBF77%24" data-definition-place="defined-in-file">SUBF77$</a>()
<a class="l" name="234" href="#234">234</a><span class="c">*</span>
<a class="l" name="235" href="#235">235</a>      <b>INTEGER</b>            <a class="d intelliWindow-symbol" href="#VARF77%24" data-definition-place="defined-in-file">VARF77$</a>
<a class="l" name="236" href="#236">236</a>      <a class="d intelliWindow-symbol" href="#VARF77%24" data-definition-place="defined-in-file">VARF77$</a> = <span class="n">0</span>
<a class="l" name="237" href="#237">237</a><span class="c">*</span>
<a class="l" name="238" href="#238">238</a><span class="c">*  =====================================================================</span>
<a class="l" name="239" href="#239">239</a><span class="c">*</span>
<a class="hl" name="240" href="#240">240</a>      <b>CALL</b> <a class="d intelliWindow-symbol" href="#SUBF77%24" data-definition-place="defined-in-file">SUBF77$</a>
<a class="l" name="241" href="#241">241</a>
<a class="l" name="242" href="#242">242</a>      <b>CALL</b> <span class="s">&apos;<a href="http://example.com">http://example.com</a>&apos;</span>
<a class="l" name="243" href="#243">243</a></body>
</html>
